home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh25.d64
/
floppy-bag 801
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
12KB
|
361 lines
100 REM********************************
102 REM* DISKHUELLEN MPS 801 *
104 REM********************************
106 REM* EIN PROGRAMM ZUR HERSTELLUNG *
108 REM* NEUER DISKETTENTASCHEN UND *
110 REM* AUFKLEBE-ETIKETTEN *
112 REM********************************
124 REM* JOHANN GUBESCH *
126 REM* HENGTEWEG 12 *
128 REM* 4420 COESFELD *
130 REM* 02541/81472 *
132 REM********************************
134 GOSUB 160
136 GOSUB 190
138 IF Y=1 THEN GOSUB 500:GOSUB 530:GOSUB 796
140 DIM DB$(144):AX$=" " :DIM NA$(144):XY=0
142 GOSUB 254
144 IF Y=2 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 578:GOSUB 796
146 IF Y=3 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 578:XY=1
148 IF Y=3 THEN GOSUB 254:GOSUB 344
150 IF Y=3 THEN GOSUB 428:GOSUB 500:GOSUB 726:GOSUB 796
152 IF Y=4 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 726:GOSUB 796
154 IF Y=5 THEN GOSUB 344:GOSUB 500:GOSUB 672:GOSUB 796
156 END
158 REM ---- MODUL RAHMEN -------------
160 POKE53281,1:POKE53280,1:PRINTCHR$(142)
162 PRINT"[147] ** FLOPPY-BAG 801 ** ";
164 PRINT" FUER MPS 801 UND KOMPATIBLE ";
166 PRINT" VON J.GUBESCH, COESFELD, FEBRUAR 1987 [146]"
168 POKE 646,0:PRINT"[145]";
170 FOR A=1TO16
172 PRINT"[221] [221]";
174 NEXT
176 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][178][192][192][192][192][192][192][179]";
178 PRINT"[221] [221] [221] [221] [221]";
180 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][177][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][178][177][192][192][192][192][192][192][179]";
182 PRINT"[221] [221] [221] [221]";
184 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][189][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
186 RETURN
188 REM ---- MODUL AUSWAHLMENUE -------
190 PRINT:PRINT
192 PRINT "[145][145][145][145] [146]"
194 PRINT "[145] WAEHLEN SIE BITTE DEN GE - "
196 PRINT " WUENSCHTEN AUSDRUCK "
198 PRINT "[145] [146]( 1-5 ) "
200 PRINT " "
202 PRINT"[145][145]"
204 PRINT"1[146]- TASCHE"
206 PRINT"[145]2[146]- TASCHE MIT AUFGEDRUCKTEM DI-"
208 PRINT" RECTORY + ETIKETT"
210 PRINT"[145]3[146]- TASCHE MIT AUFGEDRUCKTEM DI-"
212 PRINT" RECTORY + DIRECTORY FUER DIE "
214 PRINT"[145] RUECKSEITE + 2 ETIKETTEN"
216 PRINT"4[146]- DIRECTORY + ETIKETT"
218 PRINT"[145]5[146]- ETIKETT"
220 GETAN$:IFAN$=""THEN 220
222 IF AN$="1" THEN Y=1:GOSUB 238:GOTO 234
224 IF AN$="2" THEN Y=2:GOSUB 238:GOTO 234
226 IF AN$="3" THEN Y=3:GOSUB 238:GOTO 234
228 IF AN$="4" THEN Y=4:GOSUB 238:GOTO 234
230 IF AN$="5" THEN Y=5:GOSUB 238:GOTO 234
232 GOTO 220
234 RETURN
236 REM ---- MODUL BEDIENERFELD FREI --
238 PRINT""
240 PRINT""
242 FOR T= 1TO 7
244 PRINT" "
246 PRINT"[145] "
248 NEXT
250 PRINT" "
252 RETURN
254 REM ---- MODUL DIRECTORY LESEN ----
256 PRINT"" :AW$=" "
258 PRINT"";AW$
260 PRINT"[145]";AW$
262 PRINT"";AW$
264 PRINT"[145]";AW$
266 PRINT"";AW$
268 PRINT"[145][145][145][145][145] EINEN MOMENT BITTE -"
270 PRINT""
272 PRINT"[145] ICH LESE DAS DIRECTORY EIN !"
274 IF XY=1 THEN GOSUB 320:GOTO 256
276 I=0:GB=1:CLOSE 15:OPEN 15,8,15:CLOSE 1:OPEN 1,8,0,"$0"
278 INPUT#15,T,K$,O,O:IF T<>0 THEN PRINT"[145][145][145]FLOPPYFEHLER:[146]";
280 IF T<>0 THEN PRINT" ";K$:PRINT"[146]FLOPPY EIN - DISK REIN "
282 IF T<>0 THEN PRINT "[145] [146]TASTE DRUECKEN "
284 IF T<>0 THEN POKE 198,0:WAIT 198,1:RUN 134
286 GET#1,DA$,DE$
288 GET#1,DA$,DE$:DB$(I+1)="":GET#1,DA$,DE$
290 C=0
292 IF DA$<>"" THEN C=ASC(DA$)
294 IF DE$<>"" THEN C=C+ASC(DE$)*256
296 FR$=MID$(STR$(C),2)
298 GET#1,DE$:IF DE$="" THEN ZA=I:GOTO 316
300 IF DE$<>CHR$(34) THEN 298
302 GET#1,DE$:IF DE$<>CHR$(34) THEN DB$(I)=DB$(I)+DE$:GOTO 302
304 GET#1,DE$:IF DE$=CHR$(32) THEN 304
306 DC$=""
308 DC$=DC$+DE$:GET#1,DE$:IF DE$<>"" THEN 308
310 IF GB=1 THEN ID$=LEFT$(DC$,2):GB=0
312 DB$(I)=LEFT$(DB$(I)+AX$,17)
314 I=I+1:GOTO 288
316 CLOSE 1:CLOSE 15
318 RETURN
320 PRINT"" :AW$=" "
322 PRINT"";AW$
324 PRINT"[145]";AW$
326 PRINT"";AW$
328 PRINT"[145]";AW$
330 PRINT"";AW$
332 PRINT"[145][145][145][145][145]BITTE DISKETTE WENDEN "
334 PRINT""
336 PRINT"[145] [146] TASTE "
338 POKE 198,0:WAIT 198,1:XY=0
340 RETURN
342 REM ---- MODUL DATENEINGABE -------
344 PRINT"" :AW$=" "
346 PRINT"";AW$
348 PRINT"[145]";AW$
350 PRINT"";AW$
352 PRINT"[145]";AW$
354 PRINT"";AW$
356 PRINT"[145][145][145][145][145] BITTE GEBEN SIE FOLGENDE"
358 PRINT" DATEN EIN BZW. UEBERNEHMEN MIT"
360 PRINT"[145] [146]RETURN"
362 CO$=" 64 ":MO$=" 64":FL$="1541":NR$="...."
364 POKE19,1:INPUT"DATUM :[146] TT.MM.JJJJ[157][157][157][157][157][157][157][157][157][157]";TE$:POKE19,0
366 TE$=LEFT$(TE$,10)
368 HE$=LEFT$(DB$(0),16)
370 PRINT"[145]DISK-NAME :[146] ";HE$:POKE19,1:INPUT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";HE$
372 POKE19,0
374 HE$=LEFT$(HE$,16)
376 PRINT "DISK-NUMMER:[146] ";NR$;:POKE19,1:INPUT"[157][157][157][157]";NR$
378 POKE19,0
380 NR$=LEFT$(NR$,4 )
382 PRINT "[145]DISK-ID :[146] ";ID$;:POKE19,1:INPUT"[157][157]";ID$
384 POKE19,0
386 ID$=LEFT$(ID$,2 )
388 PRINT "FLOPPY :[146] ";FL$;:POKE19,1:INPUT"[157][157][157][157]";FL$
390 POKE19,0
392 FL$=LEFT$(FL$,4)
394 PRINT "[145]COMMODORE :[146] ";CO$;:POKE19,1:INPUT"[157][157][157][157]";CO$
396 POKE19,0
398 CO$=LEFT$(CO$,4)
400 PRINT "MODUS :[146] ";MO$;:POKE19,1:INPUT"[157][157][157]";MO$
402 POKE19,0
404 MO$=LEFT$(MO$,3)
406 PRINT "STIMMEN ALLE ANGABEN ? (J/N)"
408 GETAN$:IF AN$="" THEN 408
410 IF AN$="J" THEN 418
412 IF AN$="N" THEN PRINT:PRINT"[145][145][145][145] "
414 IFAN$="N" THEN PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]";:GOTO 364
416 GOTO 408
418 PRINT"";TE$;"";HE$;"";ID$;"";NR$;"FLOPPY ";FL$;"";
420 PRINT" COMMODORE ";CO$;"";MO$;"'"
422 GOSUB 238
424 RETURN
426 REM ---- MODUL FILES BEARBEITEN ---
428 PRINT"" :AW$=" "
430 PRINT"";AW$
432 PRINT"[145]";AW$
434 PRINT"";AW$
436 PRINT"[145]";AW$
438 PRINT"";AW$
440 PRINT "[145][145][145][145][145][145][145]F1- FILENAME AENDERN"
442 PRINT"F3- FILENAME STREICHEN"
444 PRINT"[145]F5- FILENAME UEBERNEHMEN"
446 PRINT"F7- TRENNUNG EINFUEGEN"
448 PRINT"[145] "
450 X1=1:X=0:T=X
452 IF ZA>39 THEN ZA = 39
454 FOR T=0 TO ZA-2
456 PRINT"";X;" ";LEFT$(DB$(X+X1),17);"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145][145][145]"
458 GETAN$:IF AN$="" THEN 458
460 IF AN$="[135]" THEN NA$(X)=LEFT$(DB$(X+X1),17):GOTO 484
462 IF AN$="[134]" THEN X=X-1:X1=X1+1
464 IF AN$="[134]" AND X<0 THEN X=-1
466 IF AN$="[134]" THEN 484
468 IF AN$="[133]" THEN PRINT"NEUER NAME:[146] .";:POKE19,1
470 IF AN$="[133]" THEN INPUT"[157]";NA$(X):POKE19,0:NA$(X)=LEFT$(NA$(X) ,17)
472 IF AN$="[133]" THEN PRINT "[145][145] "
474 IF AN$="[133]" THEN PRINT"[145][145][145][145][145][145]";:GOTO 484
476 IF AN$="[136]" THEN NA$(X)="================ "
478 IF AN$="[136]" THEN X1=X1-1:T=T-1
480 IF AN$="[136]" THEN GOTO 484
482 GOTO 458
484 X=X+1:IF X=38 THEN T=ZA-2
486 NEXT
488 PRINT " KEINE FILES MEHR VORHANDEN"
490 FOR T=XTO38:NA$(T)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] ":NEXT
492 POKE 198,0:WAIT 198,1
494 GOSUB 238
496 RETURN
498 REM ---- MODUL DRUCKVORBEREITUNG --
500 PRINT"" :AW$=" "
502 PRINT"";AW$
504 PRINT"[145]";AW$
506 PRINT"";AW$
508 PRINT"[145]";AW$
510 PRINT"";AW$
512 PRINT"[145][145][145][145][145][145][145]DRUCKER EINGESCHALTET UND"
514 PRINT"PAPIER RICHTIG EINGESPANNT ?"
516 PRINT"[145](J/N)"
518 GETAN$:IF AN$="" THEN 518
520 IF AN$="J" THEN 524
522 GOTO 518
524 GOSUB 238
526 RETURN
528 REM ---- MODUL DR HUELLE ----------
530 PRINT"" :AW$=" "
532 PRINT"";AW$
534 PRINT"[145]";AW$
536 PRINT"";AW$
538 PRINT"[145]";AW$
540 PRINT"";AW$
542 PRINT"[145][145][145][145][145]AUF GEHT'S -"
544 PRINT""
546 PRINT"[145]JETZT WIRD GEDRUCKT !"
548 PRINT"DISKETTEN-TASCHE"
550 OPEN4,4
552 PRINT#4,"[213]----------------------------------------------------------------[201]"
554 FOR T=1TO22
556 PRINT#4,"[165] : : [167]"
558 NEXT
560 PRINT#4,"[202]----[201]......................................................[213]----[203]"
562 FOR T=1TO28
564 PRINT#4," [221] [221]"
566 NEXT
568 PRINT#4," [202]------------------------------------------------------[203]"
570 CLOSE 4
572 GOSUB 238
574 RETURN
576 REM ---- MODUL DR HUELLE+DIR+ETI --
578 PRINT"":AW$=" "
580 PRINT"";AW$
582 PRINT"[145]";AW$
584 PRINT"";AW$
586 PRINT"[145]";AW$
588 PRINT"";AW$
590 PRINT"[145][145][145][145][145]AUF GEHT'S -"
592 PRINT""
594 PRINT"[145]JETZT WIRD GEDRUCKT !"
596 PRINT"DISKETTEN-TASCHE MIT AUFGEDRUCKTEM"
598 PRINT"DIRECTORY UND AUFKLEBEETIKETT"
600 CLOSE 1:OPEN 1,4
602 PRINT#1,CHR$(145)
604 PRINT#1,"[213]----------------------------------------------------------------[201]
606 [152]1,"FN : : THEN"
608 [152]1,"FN : "[199](14);HE$;[199](15);
610 [152]1," DISK-NR:";[199](14);NR$;[199](15);" : THEN"
612 [152]1,"FN : ";:[129] I[178]1 [164] 52:[152]1,"LEN";:[130]:[152]1," : THEN"
614 [152]1,"FN : "NA$(0);" ";NA$(13);" ";NA$(26); ": THEN"
616 [152]1,"FN : "NA$(1);" ";NA$(14);" ";NA$(27); ": THEN"
618 [152]1,"FN : "NA$(2);" ";NA$(15);" ";NA$(28); ": THEN"
620 [152]1,"FN : "NA$(3);" ";NA$(16);" ";NA$(29); ": THEN"
622 [152]1,"FN : "NA$(4);" ";NA$(17);" ";NA$(30); ": THEN"
624 [152]1,"FN : "NA$(5);" ";NA$(18);" ";NA$(31); ": THEN"
626 [152]1,"FN : "NA$(6);" ";NA$(19);" ";NA$(32); ": THEN"
628 [152]1,"FN : "NA$(7);" ";NA$(20);" ";NA$(33); ": THEN"
630 [152]1,"FN : "NA$(8);" ";NA$(21);" ";NA$(34); ": THEN"
632 [152]1,"FN : "NA$(9);" ";NA$(22);" ";NA$(35); ": THEN"
634 [152]1,"FN : "NA$(10);" ";NA$(23);" ";NA$(36); ": THEN"
636 [152]1,"FN : "NA$(11);" ";NA$(24);" ";NA$(37); ": THEN"
638 [152]1,"FN : "NA$(12);" ";NA$(25);" ";NA$(38); ": THEN"
640 [152]1,"FN : ";:[129] I[178]1 [164] 52:[152]1,"LEN";:[130]:[152]1," : THEN"
642 FR$[178][200](FR$[170]" ",3)
644 [152]1,"FN : STAND:"TE$" "FR$" BLOCKS FREE : THEN"
646 [152]1,"FN : : THEN
648 PRINT#1,"[165] : : [167]
650 [152]1,"FN : : THEN
652 PRINT#1,"[165] : : [167]
654 [152]1,"MID$----RIGHT$......................................................(null)----(null)
656 FOR T=1TO28
658 PRINT#1," [221] [221]"
660 NEXT
662 PRINT#1," [202]------------------------------------------------------[203]"
664 PRINTCHR$(10)CHR$(10)CHR$(10)
666 GOSUB 696:
668 RETURN
670 REM ---- MODUL DR ETIKETT ---------
672 PRINT"":AW$=" "
674 PRINT"";AW$
676 PRINT"[145]";AW$
678 PRINT"";AW$
680 PRINT"[145]";AW$
682 PRINT"";AW$
684 PRINT"[145][145][145][145][145]AUF GEHT'S -"
686 PRINT""
688 PRINT"[145]JETZT WIRD GEDRUCKT !"
690 PRINT"DISKETTEN-ETIKETT"
692 CLOSE 1:OPEN 1,4
694 PRINT#1,CHR$(145)
696 PRINT#1,CHR$(15)"[213][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][178][192][192][201]"CHR$(8)
698 IFNR$=""THENNR$=" "
700 PRINT#1,CHR$(15)"[221]"CHR$(14)NR$CHR$(15)"[221] [221]"ID$"[221]"CHR$(8)
702 PRINT#1,CHR$(15)"[171][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][177][192][192][179]"CHR$(8)
704 PRINT#1,CHR$(15)"[221] "HE$" [221]"CHR$(8)
706 PRINT#1,CHR$(15)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"CHR$(8)
708 CO$="[195]OMMODORE "+CO$
710 PRINT#1,CHR$(15)"[221] "CHR$(17)CO$CHR$(15)" [221]"CHR$(8)
712 PRINT#1,CHR$(15)"[171][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"CHR$(8)
714 MO$=MO$+"'ER [205]ODUS"
716 PRINT#1,CHR$(15)"[221]"FL$"[221]"CHR$(17)MO$" [221]"CHR$(8)
718 PRINT#1,CHR$(15)"[202][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"CHR$(15)
720 GOSUB 238
722 RETURN
724 REM ---- MODUL DR DIR+ET ----------
726 PRINT"":AW$=" "
728 PRINT"";AW$
730 PRINT"[145]";AW$
732 PRINT"";AW$
734 PRINT"[145]";AW$
736 PRINT"";AW$
738 PRINT"[145][145][145][145][145]AUF GEHT'S -"
740 PRINT""
742 PRINT"[145]JETZT WIRD GEDRUCKT !"
744 PRINT"DIRECTORY + AUFKLEBEETIKETT"
746 CLOSE 1:OPEN 1,4
748 PRINT#1,CHR$(145)
750 PRINT#1," "CHR$(14);HE$;CHR$(15);" DISK-NR:";CHR$(14);NR$;CHR$(15)
752 PRINT#1," ";:FOR I=1 TO 52:PRINT#1,"[195]";:NEXT:PRINT#1
754 PRINT#1," "NA$(0);" ";NA$(13);" ";NA$(26)
756 PRINT#1," "NA$(1);" ";NA$(14);" ";NA$(27)
758 PRINT#1," "NA$(2);" ";NA$(15);" ";NA$(28)
760 PRINT#1," "NA$(3);" ";NA$(16);" ";NA$(29)
762 PRINT#1," "NA$(4);" ";NA$(17);" ";NA$(30)
764 PRINT#1," "NA$(5);" ";NA$(18);" ";NA$(31)
766 PRINT#1," "NA$(6);" ";NA$(19);" ";NA$(32)
768 PRINT#1," "NA$(7);" ";NA$(20);" ";NA$(33)
770 PRINT#1," "NA$(8);" ";NA$(21);" ";NA$(34)
772 PRINT#1," "NA$(9);" ";NA$(22);" ";NA$(35)
774 PRINT#1," "NA$(10);" ";NA$(23);" ";NA$(36)
776 PRINT#1," "NA$(11);" ";NA$(24);" ";NA$(37)
778 PRINT#1," "NA$(12);" ";NA$(25);" ";NA$(38)
780 PRINT#1," ";:FOR I=1 TO 52:PRINT#1,"[195]";:NEXT:PRINT#1
782 PRINT#1," STAND:"TE$" ";FR$;" BLOCKS FREE"
784 PRINT#1:PRINT#1:CLOSE 1
786 CLOSE 1:OPEN 1,4
788 PRINT#1,CHR$(145)
790 GOSUB 696
792 RETURN
794 REM ---- MODUL NOCHMAL ------------
796 PRINT"":AW$=" "
798 PRINT"";AW$
800 PRINT"[145]";AW$
802 PRINT"";AW$
804 PRINT"[145]";AW$
806 PRINT"";AW$
808 PRINT"[145][145][145][145][145]WOLLEN SIE NOCH MEHR DRUCKEN ?"
810 PRINT""
812 PRINT"[145](J/N)"
814 GETAN$:IF AN$="" THEN 814
816 IF AN$="J" THEN RUN 134
818 IF AN$="N" THEN PRINT"HOFFENTLICH SIND DIE AUSDRUCKE"
820 IF AN$="N" THEN PRINT"ZU IHRER ZUFRIEDENHEIT AUS-"
822 IF AN$="N" THEN PRINT"AUSGEFALLEN !!"
824 IF AN$="N" THEN PRINT"[145]TSCHUESS - "
826 IF AN$="N" THEN PRINT"BIS BALD !!"
828 IF AN$="N" THEN POKE198,0:WAIT198,1:PRINT"[147]":RETURN